home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earkit / mailer / voodoo / s / add_to_startnet next >
Text File  |  1998-03-13  |  1KB  |  25 lines
  1.  
  2. ; Either add this to your StartNet script, or execute it after connection.
  3. ;
  4. ; Change paths; Home: & Home:BufferedMail/ (if you have them different ;-)
  5. ; Also change (+0100) to your timezone!                     (line 13, col  87)
  6. ; And change C:PutMail (with arguments) to your mail-sender (line 10, col 100)
  7. ;
  8. ; Script done by Allan Odgaard <Duff@DK-Online.DK>
  9.  
  10.  C:List Home:BufferedMail/ LFormat "Search %p%n *"**NTo: *" NoNum*NEdit %p%n With T:DateStampMail*NC:PutMail Mail=%p%n Home=Home: NoAddr NoHead NoSig" To T:SendMail
  11.  If `C:List T:SendMail LFormat %l` Not Eq "empty"
  12.   Echo "Sending buffered mail... (`Rx "Say Left(Date('W'),3) || ',' Date() Time()"`)"
  13.   Echo "F B U /Date:/*ND*NI*N`Rx "Say 'Date:' Left(Date('W'),3) || ',' Date() Time() '(+0100)'"`*NZ*NW" To T:DateStampMail
  14.   C:Execute T:SendMail
  15.    If Not Warn
  16.     C:Delete >NIL: Home:BufferedMail/#? Quiet
  17.     Echo "                     ...Done!*N"
  18.    Else
  19.     Echo "                     ...Failed!*N"
  20.    EndIf
  21.   C:Delete :T/EDIT-BACKUP Quiet
  22.  EndIf
  23.  C:Delete T:(DateStamp|Send)Mail Quiet
  24.  
  25.